home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 58.asm < prev    next >
Assembly Source File  |  2000-04-02  |  1KB  |  49 lines
  1. * 58.asm     TLellipse I    version 0.01    8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. strings: dc.b 0
  8. st_1: dc.b 'For connaisseurs of ellipses!',0 ;1
  9.  dc.b 'Error: out of chip memory',0 ;2
  10.  dc.b 'An unclipped Ellipse        An Ellipse clipped 1 pixel all around',0
  11.  dc.b 'A Hollow Ellipse            2 Hollow Ellipses, clipped 1 pixel, '
  12.  dc.b 'lapped',0 ;4
  13.  dc.b 'A bevelled ellipse...',0 ;5
  14.  
  15.  ds.w 0
  16.  
  17.  
  18. * test program
  19. Program:
  20.  TLwindow #0,#0,#0,#640,#200,#640,#200,#0,#st_1 ;open window 0
  21.  bne.s Pr_cont             ;go if ok
  22.  TLbad #2                  ;report if can't open window
  23.  rts
  24.  
  25. Pr_cont:
  26.  TLstring #3,#2,#2
  27.  move.l xxp_AcWind(a4),a5
  28.  move.b #2,xxp_FrontPen(a5)
  29.  TLellipse #100,#40,#90,#30,#0,#0,#640,#200,,solid    ;solid, untrimmed
  30.  TLellipse #400,#40,#90,#30,#311,#11,#489,#69,,solid  ;solid, trimmed
  31.  move.b #1,xxp_FrontPen(a5)
  32.  TLstring #4,#2,#80
  33.  move.b #2,xxp_FrontPen(a5)
  34.  TLellipse #100,#120,#90,#30,#0,#0,#640,#200          ;outline, untrimmed
  35.  TLellipse #400,#120,#90,#30,#311,#91,#489,#149       ;} outline, trimmed &
  36.  TLellipse #401,#120,#90,#30,#312,#91,#490,#149       ;}           lapped
  37.  TLkeyboard
  38.  
  39.  TLreqcls                                        ;do "bevelled" ellipse
  40.  TLstring #5,#2,#2
  41.  TLellipse #316,#90,#150,#75,#167,#16,#465,#164,,solid   ;white
  42.  move.b #1,xxp_FrontPen(a5)
  43.  TLellipse #324,#94,#150,#75,#175,#20,#474,#168,,solid   ;black
  44.  move.b #3,xxp_FrontPen(a5)
  45.  TLellipse #320,#92,#150,#75,#171,#18,#471,#166,,solid   ;blue
  46.  TLkeyboard
  47.  
  48.  rts
  49.